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Abstract 

Prompted  by  claims  that  garbage  collection  can  outperform  stack  allocation  when  sufficient  physical 
memory  is  available,  we  present  a  careful  analysis  and  set  of  cross-architecture  measurements  comparing 
these  two  approaches  for  the  implementation  of  continuation  (procedure  call)  frames.  When  the  frames  are 
allocated  on  a  heap  they  require  additional  space,  increase  the  amount  of  data  transferred  between  memory 
and  registers,  and,  on  current  architectures,  require  more  instructions.  We  find  that  stack  allocation  of 
continuation  frames  outperforms  heap  allocation  in  some  cases  by  almost  a  factor  of  three.  Thus,  stacks 
remain  an  important  implementation  technique  for  procedure  calls,  even  in  the  presence  of  an  efficient, 
compacting  garbage  collector  and  large  amounts  of  memory. 
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1  Introduction 

In  a  well-known  letter,  Appel[l]  argues  that  optimizing 
compilers  for  languages  that  support  garbage  collection 
need  not  attempt  to  allocate  space  using  a.  stack  if  suf¬ 
ficient  physical  memory  is  available.  Appel’s  letter  re¬ 
introduces  the  copying  collector  algorithms[2,  3]  which, 
while  popular  in  implementations,  have  been  largely  ig¬ 
nored  in  the  literature.  These  collectors  have  the  prop¬ 
erty  that  the  cost  of  garbage  collection  is  proportional  to 
the  amount  of  memory  in  use  (rather  than  the  amount  of 
garbage),  and  hence  is  asymptotically  zero  as  the  ratio 
of  available  memory  to  memory  in  use  increases. 

We  restate  Appel’s  claim  as  follows.  Consider  a  pro¬ 
gram  that  requires  the  allocation  and  release  of  n  struc¬ 
tures  as  it  runs.  In  a  stack-based  implementation,  the 
cost  of  memory  management  is 

costs (n)  =  creations  (n)  -f  destructions (n), 

while  in  a  heap-based  implementation  the  comparable 
formula  is 

costft(n)  =  creationft(n)  +  gc(live(n)), 

where  live(n)  is  the  number  of  structures  in  active  use 
when  a  garbage  collection  occurs.  Appel  argues  that 
when  >  7,  where  PhysMem  is  the  amount 

of  physical  memory^,  the  cost  of  stack  allocation  ex¬ 
ceeds  the  cost  of  heap  allocation.  Note  that  creations, 
destructions,  creation^,  and  gc  are  all  linear  in  their  ar¬ 
gument. 

While  we  agree  with  Appel’s  argument  in  the  fully 
general  case,  he  fails  to  consider  the  details  of  continu¬ 
ation  frames,  i.e.,  records  allocated  by  compiled  proce¬ 
dures  allowing  them  to  resume  after  calling  another  pro¬ 
cedure.  It  is  these  frames  that  compilers  for  languages 
descended  from  Algol  allocate  on  the  stack,  and  they  do 
so  because  they  are  allocated  and  deallocated^  in  a  stack¬ 
like  manner,  and  must  be  referenced  (to  retrieve  a  return 
address)  immediately  prior  to  being  released.  When  a 
stack  is  used  to  allocate  these  frames,  this  additional 
knowledge  can  be  used  to  efficiently  reclaim  the  storage 
for  the  frame  by  simply  popping  it  off  of  the  stack.  By 
contrast,  heap  allocation  of  these  frames  requires  explic¬ 
itly  maintaining  a  linked  list  of  continuation  frames — 
and  this  explicit  manipulation  requires  additional  stor¬ 
age,  memory  traffic,  and  (typically)  instructions. 

In  particular,  restricting  our  attention  to  continuation 
frames,  we  argue  that 

creation/,  (n)  >  creations  (n)  +  destruction*  (n), 

and  thus  even  if  garbage  collection  never  occurs  or  costs 
nothing,  the  cost  of  heap  allocation  exceeds  the  cost  of 

^Technically,  PhysMem  is  the  size  of  a  semi-space  for  a 
two  space  garbage  collector. 

^In  languages  with  a  call-with-current-continua- 
tion[4,  7]  operator  or  backtracking  operations[8,  5]  contin¬ 
uation  frames  do  not  form  a  single  list,  but  rather  a  tree. 
While  stacks  can  (and  are)  used  to  allocate  continuation 
frames  in  these  languages,  the  performance  tradeoffs  are  not 
as  straightforward  as  those  presented  here.  This  is  an  active 
area  of  research. 


stack  allocation.  Our  argument  depends  critically  on  the 
implementation  of  the  stack,  not  merely  on  the  abstract 
stack  data  type;  real  systems  implement  real  stacks  us¬ 
ing  a  contiguous  block  of  memory  with  a  single  pointer 
into  that  block. 

2  Analysis 

We  now  make  our  argument  concrete  by  presenting  ac¬ 
tual  instruction  sequences  for  both  types  of  implemen¬ 
tations.  We  have  done  our  best  to  give  the  benefit  of 
the  doubt  to  the  garbage  collector  by  ignoring  issues 
such  as  the  headers  or  type  markers  required  by  most 
algorithms  to  determine  the  size  or  composition  of  the 
garbage-collected  heap.  We  also  assume  that  both  heap 
and  stack  overflow  will  be  detected  by  hardware  traps, 
requiring  no  in-line  instructions  to  test  for  these  condi¬ 
tions. 

We  have  chosen  a  linear  recursive  algorithm,  the  com¬ 
putation  of  n!;  the  source  code  is  shown  in  Figure  1.  Op¬ 
timized  assembly  code  for  a  typical  RISC  architecture 
(Digital’s  Alpha)  is  shown  in  Figure  2.  This  code  clearly 
demonstrates  the  differences  in  linkage  convention  re¬ 
quired  by  the  choice  of  stack  vs.  heap  implementation. 
The  essential  point  to  notice  is  the  increased  number  of 
memory  references  required  by  the  heap  allocation  tech¬ 
nique,  arising  from  the  need  to  maintain  the  singly-linked 
frame  structure  as  compared  with  the  simple  address- 
based  system  used  with  stack  allocation.  Although  the 
detailed  instruction  counts  will  vary,  this  overhead  will 
be  present  on  any  general  purpose  computer  system.  For 
the  particular  machine  we  have  chosen,  the  details  are 
as  follows  (the  item  numbers  are  keyed  to  Figure  2): 

1.  The  heap  allocation  version  must  save  the  address 
of  the  current  continuation  frame  in  the  new  frame 
before  the  recursive  call. 

2.  The  heap  allocation  version  must  copy  the  heap 
pointer  into  the  current  frame  pointer  register  be¬ 
cause  these  two  registers  operate  independently:  in 
general,  neither  can  be  directly  computed  from  the 
contents  of  the  other. 

3.  The  heap  allocation  version  must  restore  the  frame 
pointer  when  the  recursive  call  completes. 

4.  The  stack  allocation  version  must  deallocate  the 
frame  by  modifying  the  stack  pointer  when  the  re¬ 
cursive  call  completes. 

Simply  counting  instructions  gives  a  rough  estimate 
of  the  performance  of  the  two  versions  of  the  code.  The 
heap  allocation  version  requires  13n  -t-  2  instructions  to 
compute  n\,  including  3n  stores  to  and  3n  loads  from 
memory.  The  stack  allocation  version  requires  lln  -f- 
2  instructions  with  2n  stores  and  2n  loads.  The  stack 
version  also  requires  one  fewer  register. 

In  terms  of  our  earlier  analysis,  we  can  assign  the 
following  costs  (in  units  of  instructions  executed) : 

creations(n)  =  3n  (of  which  2  are  memory  stores) 

destruction* (n)  =  n  (no  memory  references) 
creation/, (n)  =  5n  (of  which  3  are  memory  stores) 


< 


int  factCint  n)  (define  (fact  n) 

{  if  (n==0)  (if  (=  n  0) 

return  1 ;  1 

else  return  n*fact(n-l);  (*  n  (fact  (-  n  1))))) 

} 


int  fib(int  n) 

{  if  (n<2) 

return  1 ; 

else  return  fib(n-l)  +  fib(n-2); 

} 


(define  (fib  n) 

(if  (<  n  2) 

1 

(+  (fib  (-  n  1)) 
(fib  (-  n  2))))) 


Figure  1:  Factorial  and  Filionacci  Functions;  C  and  Scheme 


Stack 

Heap 

Comment 

FACT: 

Rargl  contains  l\ 

beq 

Rargl,  DONE 

beq 

Rargl,  DONE 

Goto  DONE  if  N  =  0 

stl 

Rargl,  -4(Rsp) 

stl 

Rargl,  -4 (Rhp) 

Save  A'  for  recursive  call 

stl 

Rret,  -8(Rsp) 

stl 

Rret,  -8 (Rhp) 

Save  return  address 

olo 

stl 

Rfrcime,  -12(Rhp) 

Save  previous  frame 

subl  Rsp,  #8,  Rsp 

subl 

Rhp,  #12,  Rhp 

Allocate  contination  frame 

o2o 

mov 

Rhp,  Rframe 

Point  frame  to  new  space 

subl  Rargl,  #1,  Rargl 

subl 

Rargl,  #1,  Rargl 

A'  -  A'  -  ] 

bsr 

Rret,  FACT 

bsr 

Rret ,  FACT 

Recurse,  ret.  addr.  in  Rret 

AFTERFACT: 

Upon  return  from  recursion 

Idl 

Rtl,  4(Rsp) 

Idl 

Rtl,  8 (Rframe) 

Restore  old  N 

Idl 

Rret,  O(Rsp) 

Idl 

Rret,  4 (Rframe) 

Restore  return  address 

o3o 

Idl 

Rframe,  0 (Rframe) 

Restore  continuation  frame 

addl 

Rsp,  #8,  Rsp 

olo 

Deallocate  stack  frame 

mull 

Rtl,  Rval,  Rval 

mull 

Rtl,  Rval,  Rval 

result  —  resiilt  x  N 

jmp 

Rzero,  (Rret) 

jmp 

Rzero,  (Rret) 

Return 

DONE: 

Ida 

Rval,  1 (Rzero) 

Ida 

Rval,  1 (Rzero) 

Base  case:  result  —  1 

jmp 

Rzero,  (Rret) 

jmp 

Rzero,  (Rret) 

Return 

Register  convention: 

•  Arguments  passed  in  registers  Rargl  ...  Rarg?;.  Return  value  is  in  Rval. 

•  Temporary  registers  Rtl  ...  Rtm. 

•  Rzero  contains  0.  Writes  are  ignored. 

•  Rret  contains  tlie  return  address. 

•  Rsp  contains  the  stack  pointer.  Stack  version  only. 

•  Rframe  points  to  tlie  current  continuation  frame.  Heap  version  only. 

•  Rhp  points  to  the  next  available  location  for  heap  allocation.  Heap  version  only. 

•  Upon  exit  the  on/y  registers  with  defined  values  are:  Rval.  Rsp.  Rframe  and  Rhp. 

The  text  is  keyed  to  the  numbers  surrounded  by  the  o  symbol.  The  Alpha  assembler  automatically  reorganizes  code  to  improve 
pipeline  performance;  these  optimizations  are  not  shown. 

Figure  2:  Alpha  As.sembly  Code  for  factorial 
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In  addition,  heap  allocation  requires  one  additional 
load  instruction  per  call  to  restore  the  previous  frame 
pointer.  Overall,  the  heap  version  requires  6  instructions 
per  call  as  compared  to  4  per  call  for  the  stack  version. 

3  Measurement 

We  find  the  conceptual  analysis  above  to  be  interest¬ 
ing  but  not  fully  compelling.  The  performance  of  real 
machines  is  considerably  more  complicated  than  mere 
instruction  counting;  real  machines  have  finite  memory, 
limited  caches,  small  translation  look-aside  buffers,  po¬ 
tentially  high  load  and  store  latencies,  multiple  instruc¬ 
tion  issue  and  other  performance- affecting  features.  We 
have  undertaken  a  series  of  measurements  to  see  how  well 
we  are  able  to  predict  performance  on  real  systems.  Fig¬ 
ure  3  shows  the  results  of  these  measurements.  We  de¬ 
scribe  here  the  details  of  the  measurements  taken  on  the 
Alpha  processor;  details  of  other  systems,  experimental 
methodology,  and  the  raw  data  are  in  the  Appendix. 

The  measurements  in  Figure  3  were  taken  using  a  Dig¬ 
ital  Equipment  Corporation  3000/400  system  (133MHz 
processor)  with  128MBytes  of  primary  memory.  Be¬ 
cause  of  the  relatively  long  latency  of  the  integer  multiply 
(mull)  instruction  on  this  machine,  we  ran  the  code  in 
Figure  2  both  as  shown  and  with  the  mull  instruction 
changed  to  integer  addition  (addl).  The  numbers  shown 
in  this  table  were  generated  by  running  the  assembly 
language  code  shown  in  Figure  2,  with  different  values 
of  n,  a  total  of  20  times  each  using  the  OSF/1  operat¬ 
ing  system  VI. 3  (Rev.  Ill)  and  a  driver  loop  written  in 
C.  Because  of  inevitable  operating  system  overhead  the 
numbers  are  not  precisely  replicable,  and  severely  outly¬ 
ing  numbers  were  removed  (in  no  case  did  we  drop  more 
than  4  values,  and  for  n  >  10^  never  more  than  2).  The 
remaining  numbers  are  averaged.  The  timings  are  based 
on  the  gettimeofday  system  call.  The  C  driver  allocates 
the  memory  to  be  used  by  the  assembly  language  code; 
the  amount  of  memory  allocated  is  precisely  the  amount 
required  by  the  heap  version  of  the  program,  3n  words 
of  storage.  To  increase  the  precision  for  n  <  10'^,  these 
values  were  actually  computed  by  running  the  program 
times  between  timing  calls;  this  process  was  then 
repeated  20  times.  This  helps  factor  out  the  overhead 
of  the  system  call,  making  all  of  the  values  shown  in 
Figure  3  easily  reproducible. 

Using  the  instruction  counts  from  the  previous  sec¬ 
tion,  we  predict  that  performance  of  the  heap  allocation 
algorithm  should  be  18%  worse  than  the  stack  alloca¬ 
tion  version  (13  instructions  vs.  11  instructions).  The 
actual  measurements  indicate  that  the  penalty  is  less 
than  this  for  programs  with  a  limited  number  of  contin¬ 
uation  frames  (fewer  than  10^).  For  larger  numbers  of 
frames  the  cost  of  heap  allocation  rises  considerably  to 
about  25%.  We  believe  that  this  jump  in  cost  arises  from 
exceeding  the  size  of  the  off-chip  memory  cache:  at  this 
point  the  extra  memory  traffic  required  by  the  heap  al¬ 
location  version  becomes  more  expensive  relative  to  the 
(constant)  computation  within  the  loop. 

We  observed  one  additional  phenomenon.  When  the 
number  of  frames  increases  even  further  (to  10^),  the 
programs  require  more  virtual  address  space  than  there 


is  physical  memory  on  the  machines.  The  effect  on  per¬ 
formance  is  dramatic  (over  an  order  of  magnitude  on  the 
Alpha)  and  it  occurs  first  on  the  heap  allocation  version 
since  these  require  50%  more  memory  for  the  same  num¬ 
ber  of  frames.  We  were  unable  to  run  the  benchmarks 
with  enough  frames  to  force  both  the  stack  and  heap  ver¬ 
sions  to  enter  this  paging  mode,  so  we  cannot  continue 
the  performance  comparison  into  this  regime. 

The  data  in  Figure  3  represents  a  scenario  in  which, 
for  both  the  stack  and  heap  allocator,  there  is  no  reuse  of 
continuation  frames  and  the  memory  used  is  maximally 
compact.  This  is  a  simple  linear  recursive  process,  and 
represents  the  case  in  which  stack  and  heap  performance 
are  as  close  to  identical  as  possible  (barring,  of  course, 
iterative  processes  which  create  no  continuation  frames). 

One  of  the  advantages  of  stacks  relative  to  heaps,  how¬ 
ever,  is  their  ability  to  immediately  reuse  storage.  The 
amount  of  stack  space  in  use  is  exactly  the  amount  used 
by  the  live  continuation  frames.  On  a  heap,  the  live  con¬ 
tinuation  frames  are  interspersed  with  inactive  frames 
and  the  space  is  compacted  when  a  garbage-collection 
occurs.  Since  the  stack  maintains  locality,  it  performs 
better  in  the  presence  of  memory  hierarchies — at  least 
between  garbage  collections.  Notice  that,  in  the  best 
case,  a  garbage  collection  can  only  improve  the  locality 
to  match  that  attained  by  the  stack. 

To  explore  the  impact  of  this  loss  of  locality,  we 
examine  a  different  algorithm:  the  doubly  recursive 
f  ibonacci  function  shown  in  Figure  1.  This  algorithm 
requires  space  (i.e.  live  continuation  frames)  linear  in  n. 
Using  the  stack  allocation  scheme,  the  actual  memory 
use  is  linear.  With  a  heap  allocation  strategy,  however, 
the  amount  of  memory  in  use  is  exponential  in  n  in  the 
absence  of  garbage  collection.  We  again  hand-coded  fib 
into  two  assembly  language  programs,  one  using  stack 
allocation  and  the  other  heap  allocation.  In  order  to 
avoid  unduly  penalizing  the  heap  allocated  version,  we 
wrote  the  code  to  use  the  same  continuation  frame  for 
computing  both  fib(r7.  — 1)  and  fib(n  — 2)®.  This  alters  the 
constant  factor  in  the  maximum  size  of  the  heap  with¬ 
out  changing  its  order  of  growth.  The  results  are  shown 
in  Figure  4.  In  this  case,  we  see  a  performance  penalty 
for  using  heap  allocation  that  rises  steadily  with  n,  to 
ultimately  double  the  running  time  of  the  program. 

A  compacting  garbage  collector  will  improve  the  run¬ 
ning  time  for  the  heap  allocated  version  when  n  is  large. 
For  small  values  of  n,  however,  it  is  unreasonable  to 
presume  that  a  garbage  collection  would  occur.  Fur¬ 
thermore,  the  cost  of  testing,  invoking,  and  running  the 
garbage  collector  is  likely  to  outweigh  any  advantage  it 
might  have.  In  either  case,  of  course,  the  performance 
cannot  exceed  what  was  seen  in  Figure  3,  since  those 
measurements  are  conceptually  what  would  be  measured 
if  a  garbage  collection  occured  after  the  completion  of 
every  recursive  procedure  call. 

As  one  final  check  on  our  earlier  analysis,  we  repeated 
these  experiments  on  three  other  computer  architectures 
to  verify  that  the  results  arise,  as  we  claim,  from  prop- 


®This  optimization  would  be  incorrect  if  the  language  sup¬ 
ports  call-with-current-continuation  or  backtracking. 
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1.05 

1.32 

1.16 

1.30 

ma 

0.20 

0.21 

1.04 

1.24 

l.OC 

1.20 

0.12 

0.12 

1.06 

1.41 

1.20 

1.41 

10'^ 

0.20 

0.21 

1.04 

1.24 

1.15 

1.35 

0.12 

0.15 

1.26 

1.41 

1.47 

1.79 

10'^ 

0.20 

0.21 

1.04 

1.24 

1.14 

1.29 

0.14 

0.16 

1.10 

1.42 

1.40 

1.69 

10'’ 

0.24 

0.31 

1.30 

1.36 

1.15 

1.31 

0.18 

0.26 

1.41 

1..54 

1.39 

1.52 

10^’ 

0.80 

0.37 

1.26 

1.29 

1.13 

1.28 

0.25 

0.33 

1.30 

1.47 

1.39 

1.50 

All  timos  in  microseconds.  Ratio  is 
Figure  3:  Measured  performance 
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Stack 

Alpha 

Heap 

Ratio 

PA 

Ratio 

68K 

Ratio 

486 

Ratio 

5 

0.10 

0.10 

1.08 

1.15 

1.03 

1.08 

10 

1.09 

1.19 

1.10 

1.19 

1.13 

15 

12.09 

16.86 

1.20 

1.21 

1.66 

20 

134.13 

212.19 

1.58 

1.56 

1.22 

2.39 

25 

1487.24 

3030.59 

2.04 

1 .55 

1.23 

2.98 

16481.76 

33591.33 

2.04 

1.56 

1.23 

2.97 

All  times  are  in  microseconds.  Ratio  is 

black 

Figure  4:  Measured  performance  on  fibonacci 


erties  inherent  in  tlie  use  of  heap  allocation.  We  re¬ 
coded  tlie  procedures  for  the  Motorola  68010.  Intel  486, 
and  Hewlett-Packard  Precision  Architecture  processors. 
All  of  these  processors  have  special  purpose  instructions 
to  accelerate  stack-like  operations,  and  we  use  these  in 
the  stack  implementation  and  wherever  possible  in  the 
heap  implementation.  Unlike  the  Alpha,  where  an  ex¬ 
plicit  instruction  must  be  used  to  bump  the  stack  or 
heap  pointer,  these  machines  can  perform  that  opera¬ 
tion  as  a  side-effect  of  the  data  motion  instructions  used 
to  store  and  restore  data  from  the  continuation  frames. 
Thus,  destruction.,(?;)  =  0.  The  results  are  also  sliown 
in  Figures  3  and  4. 

4  Conclusion 

Compilers  have  traditionally  used  a  stack  to  store  con¬ 
tinuation  frames,  even  when  the  language  they  imple¬ 
ment  requires  a  garbage-collected  heap.  This  tradition 
has  been  recently  challenged,  based  on  the  observation 
that  the  cost  of  garbage  collection  can  be  minimized  by  a 
careful  choice  of  algorithm  and  sufficiently  large  memory. 
Our  investigation,  across  four  architectures  and  a  num¬ 
ber  of  illustrative  ])rograms,  shows  that  the  traditional 
strat.egy  outperforms  the  use  of  the  heap  for  storing  con¬ 
tinuation  frames.  While  the  numbers  vary  in  detail,  in 
no  case  does  a  heap  perform  better  than  a  stack;  and  we 
have  measured  performance  degradation  of  over  a  factor 
of  two  when  a  large  number  of  procedure  calls  must  be 
executed. 

The  difficulty  with  heap  allocated  continuation  frames 


comes  from  two  factors: 

1.  The  size  of  the  continuation  frame  must  be  larger 
if  allocated  on  the  heap  in  order  to  accomodate  a 
pointer  to  the  previous  frame.  When  frames  are  on 
the  stack  the  previous  frame  pointer  can  be  calcu¬ 
lated  using  address  arithmetic  on  the  current  frame 
pointer. 

2.  Becau.se  continuation  frames  form  a  singly  linked 
structure  when  allocated  on  the  heap,  the  mainte¬ 
nance  of  the  link  information  requires  instructions. 
In  addition,  since  these  instructions  reference  mem¬ 
ory,  they  are  relatively  expensive  on  current  ma¬ 
chines. 

The  observation  that  garbage  collection  comes  for  free 
under  certain  assumptions  is  correct.  Unfortunately,  in 
the  important  ca.se  of  continuation  frames,  the  cost  of 
heap  allocation  even  iriihoui  the  added  cost  of  garbage 
collection  exceeds  the  cost  of  stack  allocation  and  rclea.s(\ 
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A  Measured  Code 

This  section  contains  the  actual  assembly  language  code 

measured  on  the  various  machines. 

A.l  Alpha 

This  code  is  written  to  be  expanded  by  the  cpp  macro 

expansion  facility. 

/*  Midas  */ 


#include  <regdei.h> 


#define  rargl 

aO 

#define  rsp 

al 

#define  rret 

ra 

#define  rtl 

tl 

#define  rval 

vO 

#define  rzero 

zero 

#define  rhp 

al 

#define  rframe 

to 

. align 

4 

.globl 

stack_f act 

.  ent 

stack_fact  2 

stack_f act : 

beq 

rargl , stack_f act_done 

stl 

rargl, -4 (rsp) 

stl 

rret ,-8(rsp) 

subl 

rsp, 8, rsp 

subl 

rarg 1,1, rargl 

bsr 

rret , stack_f act 

stack_f act_af ter : 

Idl  rtl,4(rsp) 

Idl  rret,0(rsp) 

addl  rsp,8,rsp 

mull  rtl,rval,rval 

jmp  rzero,(rret) 


stack_f act_done : 

Ida  rval, l(rzero) 

jmp  rzero,(rret) 

. end  stack_f act 

. align  4 
•globl  heap_fact 

.ent  heap_fact,2 

heap_f act : 

beq  rargl ,heap_fact_done 

stl  rargl ,-4(rhp) 

stl  rret,-8(rhp) 

stl  rlrame,-12(rhp) 

subl  rhp,12,rhp 

mov  rhp.rframe 

subl  rargl , 1 ,rargl 

bsr  rret ,heap_f act 

heap_f act_af ter : 

Idl  rtl,8(rframe) 

Idl  rret ,4(rirame) 

Idl  rirame,0(rircime) 

mull  rtl, rval, rval 
jmp  rzero,(rret) 

heap_iact_done : 

Ida  rval, l(rzero) 
jmp  rzero,(rret) 

.end  heap_fact 

. align  4 
■globl  stack_sum 
■  ent  stack_srun  2 
stack_siun: 

beq  rargl , stack_sum_done 

stl  rargl ,-4(rsp) 

stl  rret,-8(rsp) 

subl  rsp,8,rsp 

subl  rargl , 1 ,rargl 

bsr  rret , stack_sum 

stack_siun_af  ter : 

Idl  rtl,4(rsp) 

Idl  rret,0(rsp) 
addl  rsp,8,rsp 
addl  rtl, rval, rval 
jmp  rzero,(rret) 

stack_sum_done : 

Ida  rval,l(rzero) 
jmp  rzero,(rret) 

. end  stack_sum 

.align  4 
.globl  heap_srun 
. ent  heap_sum  2 
heap_sum: 

beq  rargl ,heap_sum_done 

stl  rargl ,-4(rhp) 
stl  rret,-8(rhp) 
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stl  rlrame ,-12(rhp) 

subl  rhp,12,rhp 

mov  rhp.rlrajne 

subl  rargl , 1 ,rargl 

bsr  rret ,heap_sum 


heap_sum_af ter : 
Idl 
Idl 
Idl 
addl 

jiop 

heap_sum_done : 
Ida 
jn>P 
.  end 


rtl ,8(rframe) 
rret  ,4(rfraine) 
rf rame , 0 (rf rame ) 
rtl ,rval ,rval 
rzero, (rret) 

rval, l(rzero) 
rzero, (rret) 
heap_sum 


. align 
■globl 
.  ent 

stack_f ib: 

cmplt 

bne 

stl 

stl 

subl 

subl 

bsr 


4 

stack_f ib 
stack_lib  2 

rargl ,2, rtl 

rtl , stack_f ib_done 

rargl, -4(rsp) 

rret ,-8(rsp) 

rsp,8,rsp 

rarg 1,1, rargl 

rret , stack_f ib 


stack_f ib_aiter_l : 

Idl  rargl, 4(rsp) 

stl  rval,4(rsp) 

subl  rargl, 2, rargl 

bsr  rret ,stack_f ib 


stack_iib_after_2: 

Idl  4(rsp),rtl 

Idl  0(rsp),rret 

addl  rsp,8,rsp 

addl  rtl , rval , rval 

jmp  rzero, (rret) 


stack_f ib_done : 
mov 
jmp 
.  end 

. align 
•globl 
.  ent 

heap_f ib : 

cmplt 

bne 

stl 

stl 

stl 

subl 

mov 

subl 

bsr 


rargl ,rval 
rzero, (rret) 
stack_f ib 

4 

heap_f ib 
heap_fib  2 

rargl ,2, rtl 
rt 1 , heap_f ib_done 
rargl , -4(rhp) 
rret , -8(rhp) 
rlrame,-12(rhp) 
rhp , 12 ,rhp 
rhp,rframe 
rarg 1,1, rargl 
rret ,heap_f ib 


heap_f ib_af ter_l : 

Idl  rargl ,8(rframe) 
stl  rval, 8 (rf rame) 

subl  rarg 1,2, rargl 

bsr  rzero, (rret) 


heap_f ib_after, 
Idl 
Idl 
Idl 
addl 
jmp 


,2: 

rtl ,8(rframe) 
rret ,4 (rf rame) 
rf rame , 0 (rf rame) 
rtl , rval , rval 
rzero, (rret) 


heap_f ib_done : 

mov  rargl, rval 

jmp  rzero, (rret) 

.end  heap_fib 

A.2  HP  PA 

This  cocit'  is  written  to  be  expanded  l)y  the  m4  macro  ex¬ 
pansion  facility.  Some  lines  have  been  split  and  indented 
for  presentation  purposes, 

changecom( ‘ ; ’ ) ; ; ;  -*  Midas 


def ine(rargl , ‘26 ’ ) 
def ine(rsp, ‘ 25 ’ ) 
define (rret, ‘2’) 
define(rtl, ‘24’) 
def ine(rval, ‘28’ ) 
def ine(rzero, ‘0’ ) 
define(rhp, ‘25’) 
def ine(rf rame,  ‘23’) 


•SPACE  $TEXT$ 

. SUBSPA  $C0DE$,qUAD=0,ALIGN=8, 
ACCESS=44,C0DE_0NLY 

stack_sum 

•  PROC 

•CALLINFO  CALLER, FRAME=0 
. ENTRY 


COMB , = , N  rzero , rargl , stack_sum_done 


STWM 

rargl ,-4(0, rsp) 

STWM 

rret , -4(0 , rsp) 

BL 

stack_sum,rret 

AUDI 

-1, rargl, rargl 

im_after 

LDWM 

4(0, rsp) ,rret 

LDWM 

4(0, rsp) ,rtl 

BV 

O(rret) 

ADD 

rtl , rval , rval 

im_done 

BV 

O(rret) 

•  EXIT 

LDI 

1  ,rval 

•PROCEND 
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. SPACE  $TEXT$ 

. SUBSPA  $C0DE$,QUAD=0,ALIGN=8, 


ACCESS=44 , CODE_ONLY 


.CALLINFO  CALLER, FRAME=0 


sum 

. ENTRY 

.PROC 

C0MB,  =  ,1 

H  rzero, rargl ,heap_; 

. CALLINFO  CALLER , FRAME=0 

STWM 

rargl, -4(0, rhp) 

.ENTRY 

STWM 

rret,-4(0,rhp) 

COMB,=, 

,N  rzero, rargl, heap_siiin_done 

STWM 

rf r ame , -4 ( 0 , rhp ) 

STWM 

rargl, -4(0, rhp) 

COPY 

rhp,rframe 

STWM 

rret,-4(0,rhp) 

BL 

heap_f act ,rret 

STWM 

rf r ame , -4 ( 0 , rhp ) 

ADDI 

-1, rargl, rargl 

COPY 

rhp,rfraine 

BL 

heap_sum,rret 

heap_fact_after 

ADDI 

-1, rargl, rargl 

STW 

rval, -4(0, rhp) 

FLDWS 

8(0,rframe)  ,*/,fr4L 

siim_  after 

LDW 

4(0,rframe) ,rret 

LDW 

8(0,rfraine)  ,rtl 

LDW 

0(0,rframe) ,rframe 

LDW 

4(0,rfraine)  ,rret 

FLDWS 

-4(0, rhp)  ,*/.fr4R 

LDW 

0(0,rframe)  ,rfraine 

XMPYU 

•/.fr4L,*/.fr4R,*/.fr5 

BV 

O(rret) 

FSTWS 

'/,fr5R,-4(0,rsp) 

ADD 

rtl , rval, rval 

BV 

O(rret) 

LDW 

-4(0, rsp) ,rval 

.siim_done 

BV 

O(rret) 

heap_fact_done 

.EXIT 

BV 

O(rret) 

LDI 

1 , rval 

.EXIT 

. PROCEND 

LDI 

1 ,  rval 

.PROCEND 


.SPACE  $TEXT$ 

.SUBSPA  $CQDE$,qUAD=0,ALIGN=8, 
ACCESS=44,CODE_ONLY 

stack_lact 

.PROC 

.CALLINFO  CALLER, FRAHE=0 
. ENTRY 

COMB , = , N  rzero , rargl , stack_f act_done 
STWM  rargl, -4(0, rsp) 

STWM  rret,-4(0,rsp) 

BL  stack_fact ,rret 

ADDI  -1 , rargl , rargl 


.SPACE  $TEXT$ 

.SUBSPA  $C0DE$,QUAD=0,ALIGN=8, 
ACCESS=44,C0DE_0NLY 

stack_f ib 

.PROC 

. CALLINFO  CALLER , FRAME=0 
.ENTRY 

COMIB,>,N  2,rargl ,stack_fib_done 
STWM  rargl, -4(0, rsp) 

STWM  rret,-4(0,rsp) 

BL  stack_f ib,rret 

ADDI  -1 , rargl , rargl 


stack_f act_aTter 

STW  rval,-4(0,rsp) 

LDWM  4(0,rsp) ,rret 

FLDWS,MA  4(0,rsp),*/.fr4L 
FLDWS  -12(0, rsp)  ,'/,fr4R 

XMPYU  •/.fr4L,'/.Lr4R,y.fr5 
FSTWS  '/.fr5R,-4(0,rsp) 

BV  O(rret) 

LDW  -4 ( 0 , r sp ) , rval 

stack_f act_done 

BV  O(rret) 

.EXIT 

LDI  l,rval 

. PROCEND 

. SPACE  $TEXT$ 

.SUBSPA  $C0DE$,QUAD=0,ALIGN=8, 
ACCESS=44 , CODE_ONLY 

heap_fact 

.PROC 


St  ack_f ib_  af  t  er_ 1 

LDW  4(0, rsp) , rargl 

STW  rval, 4(0, rsp) 

BL  stack_f ib,rret 

ADDI  -2, rargl, rargl 


stack_f ib_after_2 

LDWM  4(0,rsp) ,rret 

LDWM  4(0,rsp),rtl 

BV  O(rret) 

ADD  rtl, rval, rval 


stack_f ib.done 

BV  O(rret) 

.EXIT 

COPY  rargl, rval 

•PROCEND 


.SPACE  $TEXT$ 

.SUBSPA  $C0DE$,QUAD=0,ALIGN=8, 
ACCESS=44 , CODE.ONLY 
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heap_f ib 

.PRDC 

■CALLINFO  CALLER, FRAHE=0 
. ENTRY 

CQHIB,>,N  2,rargl ,heap_f ib_done 
STWM  rargl ,-4(0,rhp) 

STWM  rret ,-4(0,rhp) 

STWM  rfraine,-4(0,rhp) 

COPY  rhp.rframe 

BL  heap_f ib.rret 

ADDI  -1 , rargl , rargl 

heap_f ib_after_l 

LDW  8(0, rlrame) , rargl 
STW  rval,8(0,rfraine) 

BL  heap_f ib.rret 

ADDI  -2, rargl , rargl 


heap_f ib_af ter_2 

LDW  4(0, rfrajne)  , rret 

LDW  8(0,rfrciine)  ,rtl 

LDW  0(0 ,rframe) .rframe 
BV  O(rret) 

ADD  rtl ,rval ,rval 


heap_f ib_done 

BV  O(rret) 

•  EXIT 

COPY  rargl, rval 

•PROCEND 


.SPACE  $TEXT$ 

.SUBSPA  $CODE$ 

.EXPORT  stack_fact,PRIV_LEV=3, 

ARGWO=GR , ARGW1=GR, RTNVAL=GR 
.EXPORT  heap_fact,PRIV_LEV=3, 

ARGWO=GR , ARGW1=GR , RTNVAL=GR 
.EXPORT  stack_smn,PRIV_LEV=3, 

ARGWO=GR , ARGW1=GR , RTNVAL=GR 
.EXPORT  heap_sum,PRIV_LEV=3, 

ARGWO=GR, ARGW1=GR , RTNVAL=GR 
.EXPORT  stack_fib,PRIV_LEV=3, 

ARGWO=GR , ARGW1=GR , RTNVAL=GR 
.EXPORT  heap_fib,PRIV_LEV=3, 

ARGW0=GR,ARGW1=GR,RTNVAL=GR 

.END 

A. 3  MC68K 

This  code  is  written  to  be  expanded  by  the  m4  macro 

expansion  facility. 

###  -*-Midas-*- 


define (rargl ,  “/.dl  ’  ) 
def  ine(rsp,  “/,sp’ ) 
def  ine  ( rval ,  ‘  '/,d0  ’ ) 
define(rhp,  ‘*/,sp’) 
def  ine  (rframe ,  ‘*/,al  ’ ) 
def  ine(ratemp,  ‘*/,a0’) 

global  _stack_fact 
_stack_f act : 


pea 

C/.aS) 

#  save  a5 

lea 

(*/,sp)  ,*/,a5 

mov .  1 

8C/.a5)  ,  rargl 

#  n 

mov .  1 

12C/.a5)  ,y.sp 

#  memory 

bsr 

i_stack_f act 

mov .  1 

'/,a5,'/.sp 

mov .  1 

(’/,sp)  +  ,*/,a5 

rts 

global 

_heap_f act 

_heap_f act : 

pea 

C/.aS) 

#  save  a5 

lea 

(*/,sp)  ,*/.a5 

mov .  1 

8(*/.a5) ,  rargl 

#  n 

mov .  1 

12C/.a5)  ,y.sp 

#  memory 

bsr 

i_heap_f act 

mov .  1 

’/,a5,'/,sp 

mov.l 

('/,sp)  +  ,*/.a5 

rts 

global 

_stack_sum 

_stack_sum: 

pea 

C/.aS) 

#  save  a5 

lea 

C/.sp)  ,‘/.a5 

mov .  1 

8(*/,a5) ,  rargl 

#  n 

mov .  1 

12C/.a5),‘/.sp 

#  memory 

bsr 

i_stack_sum 

mov.l 

*/,a5,*/,sp 

mov .  1 

(*/,sp)  +  ,*/,a5 

rts 

global 

_heap_sum 

_heap_sum: 

pea 

(*/.a5) 

#  save  a5 

lea 

C/.sp)  ,*/,a5 

mov .  1 

8(’/,a5) ,  rargl 

#  n 

mov .  1 

12C/.a5),y.sp 

#  memory 

bsr 

i_heap_sum 

mov .  1 

'/,a5,’/,sp 

mov .  1 

(’/,sp)  +  ,*/,a5 

rts 

global 

_stack_f ib 

_stack_f ib : 

pea 

(7.a5) 

#  save  aS 

lea 

C/.sp)  ,*/,a5 

mov .  1 

8('/,a5) ,  rargl 

#  n 

mov .  1 

12C/.a5),y.sp 

#  memory 

bsr 

i_stack_f ib 

mov .  1 

y,a5,y,sp 

mov .  1 

C/.sp  )  +  ,y.a5 

rts 

global 

_heap_f ib 

_heap_f ib: 

pea 

(y.a5) 

#  save  a5 

lea 

(y.sp)  ,y.a5 

mov .  1 

8(y.a5)  .rargl 

#  n 

mov .  1 

12(y.a5),y.sp 

#  memory 

bsr 

i_heap_f ib 

mov .  1 

y.as ,  y.sp 
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mov.l 

(*/,sp)  +  ,*/,a5 

add.l 

-4 (rframe) .rval 

rts 

mov .  1 

(rframe) .rframe 

jmp 

(ratemp) 

i_stack_f act : 

tst .  1 

rargl 

i_heap_sum_done 

beq 

i_stack_f act_done 

movq 

&1 .rval 

mov .  1 

rargl , -(rsp) 

rts 

subq. 1 

&1 , rargl 

bsr 

i_stack_f act 

i_stack_f ib: 

cmp .  1 

rargl ,&2 

i_stack_f act_af ter : 

bit 

i_stack_f ib_done 

muls . 1 

(rsp) +, rval 

mov .  1 

rargl, -(rsp) 

rts 

subq . 1 

&1 .rargl 

bsr 

i_stack_f ib 

i_stack_f act_done; 

movq 

&1 ,rval 

i_stack_f ib_after_l : 

rts 

mov .  1 

(rsp) .rargl 

mov .  1 

rval , (rsp) 

i_heap_f act : 

subq. 1 

&2, rargl 

tst .  1 

rargl 

bsr 

i_stack_f ib 

beq 

i_heap_f act_done 

link 

rframe,&-4 

i_stack_f ib_af ter_2 : 

mov .  1 

rargl ,-4(rframe) 

add.l 

(rsp)+,rval 

subq . 1 

&1 .rargl 

rts 

bsr 

i_heap_f act 

i_stack_f ib_done : 

i_heap_f act_after : 

mov .  1 

rargl .rval 

mov.l 

4(rframe) .ratemp 

rts 

muls . 1 

-4(rframe) ,rval 

mov.l 

(rframe) .rframe 

i_heap_f ib: 

jmp 

(ratemp) 

cmp.l 

rargl ,&2 

bit 

i_heap_f ib_done 

i_heap_f act_done : 

link 

rframe, &-4 

movq 

&1 ,rval 

mov .  1 

rargl ,-4(rframe) 

rts 

subq . 1 

&1 .rargl 

bsr 

i_heap_f ib 

i_stack_sum: 

tst .  1 

rargl 

i_heap_f ib_af ter_l : 

beq 

i_stack_sum_done 

mov .  1 

-4(rframe) .rargl 

mov .  1 

rargl, -(rsp) 

mov .  1 

rval, -4 (rframe) 

subq. 1 

&1 .rargl 

subq . 1 

&2, rargl 

bsr 

i_stack_sum 

bsr 

i_heap_f ib 

i_stack_sum_after : 

i_heap_f ib_after_2 : 

add.l 

(rsp) +, rval 

mov .  1 

4 (rframe) .ratemp 

rts 

add.l 

-4(rframe) .rval 

mov .  1 

(rframe) .rframe 

i_stack_sum_done : 

jmp 

(ratemp) 

movq 

&1 .rval 

rts 

i_heap_f ib_done : 

mov .  1 

rargl .rval 

i_heap_sum; 

rts 

tst  .1 

rargl 

beq 

i_heap_sum_done 

A.4  i486 

link 

rframe ,&-4 

This  code  is  Avritten  to  be  expanded  by  the  m4  macro 

mov.l 

rargl , -4 (rframe) 

expansion  facility. 

subq. 1 

&1 .rargl 

###  Midas  -=i 

e  — 

bsr 

i_heap_sum 

i_heap_suin_  after : 

mov.l  4(rfraine)  ,ratemp 


def  ine  (rargl ,  ‘  */,ecx  ’ ) 
define (rsp,  “/.esp’ ) 
def  ine  (rval ,  '  */,eax  ’ ) 


def  ine(rhp,  ‘‘/.esp’ ) 

movl 

16('/.ebx)  ,rargl#  n 

def  ine  (rf  rcime , 

“/.ebp’ ) 

movl 

20  ('/.ebx ), '/.esp  #  memory 

def  ine(rtl ,  ‘*/,esi  ’ ) 

call 

i_heap_sum 

movl 

'/.ebx, '/.esp 

■  text 

popl 

'/.esi 

popl 

'/.ebx 

. align 

2 

popl 

'/.ebp 

. globl 

_stack_f act 

ret 

_stack 

_f act : 

pushl 

y.ebp 

#  save  ebp 

.align  2 

pushl 

‘/,ebx 

#  save  ebx 

.globl 

_stack_f ib 

push 

‘/.esi 

#  save  esi 

_stack_f ib : 

movl 

'/.esp.'/.ebx 

#  save  esp  in 

ebx 

pushl 

'/.ebp  #  save  ebp 

movl 

16(*/,ebx)  ,rargl#  n 

pushl 

'/.ebx  #  save  ebx 

movl 

20(*/.ebx)  ,‘/,esp  #  memory 

push 

'/.esi  #  save  esi 

call 

i_stack_f act 

movl 

*/,esp,'/,ebx  #  save  esp  in  ebx 

movl 

•/.ebx.'/.esp 

movl 

16('/.ebx)  ,rargl#  n 

popl 

'/•esi 

movl 

20('/.ebx)  ,'/.esp  #  memory 

popl 

*/,ebx 

call 

i_stack_f ib 

popl 

*/.ebp 

movl 

'/.ebx, '/.esp 

ret 

popl 

'/.esi 

popl 

'/.ebx 

. align 

2 

popl 

'/.ebp 

.globl 

_heap_f act 

ret 

_heap_ 

fact : 

pushl 

*/.ebp 

#  save  ebp 

.align  2 

pushl 

*/,ebx 

#  save  ebx 

.globl 

_heap_f ib 

push 

'/.esi 

#  save  esi 

_heap_f ib: 

movl 

'/,esp,'/,ebx 

#  save  esp  in 

ebx 

pushl 

'/.ebp  #  save  ebp 

movl 

16('/.ebx)  ,rargl#  n 

pushl 

'/.ebx  #  save  ebx 

movl 

20('/,ebx)  ,'/,esp  #  memory 

push 

'/.esi  #  save  esi 

call 

i_heap_f act 

movl 

'/.esp, '/.ebx  #  save  esp  in  ebx 

movl 

'/,ebx,'/,esp 

movl 

16('/.ebx)  ,rargl#  n 

popl 

'/.esi 

movl 

20('/.ebx)  ,*/,esp  #  memory 

popl 

'/.ebx 

call 

i_heap_f ib 

popl 

'/.ebp 

movl 

'/.ebx, '/.esp 

ret 

popl 

'/.esi 

popl 

'/.ebx 

.align  2 

popl 

'/.ebp 

.globl 

_stack_sum 

ret 

_stack 

_sum: 

pushl 

'/.ebp 

#  save  ebp 

.align  2 

pushl 

'/.ebx 

#  save  ebx 

i_stack_f act : 

push 

'/.esi 

#  save  esi 

cmpl 

$0,rargl 

movl 

'/.esp, '/.ebx 

#  save  esp  in 

ebx 

je 

i_stack_f act_done 

movl 

16('/,ebx)  ,rargl#  n 

pushl 

rargl 

movl 

20  ('/.ebx )  ,'/.esp 

#  memory 

subl 

$l,rargl 

call 

i_stack_sum 

call 

i_stack_f act 

movl 

'/.ebx, '/.esp 

popl 

'/.esi 

i_stack_f act_af ter : 

popl 

'/.ebx 

popl 

rtl 

popl 

'/.ebp 

imull 

rtl  #  implicit  */,eax  =  rval 

ret 

ret 

. align 

2 

i_stack_f act_done : 

.globl 

_heap_sum 

movl 

$1 , rval 

_heap_i 

sum: 

ret 

pushl 

'/.ebp 

#  save  ebp 

pushl 

'/.ebx 

#  save  ebx 

. align 

2 

push 

'/.esi 

#  save  esi 

i_heap_f act : 

movl 

'/.esp, '/.ebx 

#  save  esp  in 

ebx 

cmpl 

$0, rargl 

10 

je  i_heap_f act_done 

pushl  rargl 

pushl  rframe 

movl  rsp, rframe 

subl  $1, rargl 

call  i_heap_fact 

i_heap_f act_after: 

movl  SCrfrEone) ,rtl  #  return  address 
imull  4(rframe)  #  implicit  ’/.ear  =  rval 
movl  0 (rframe) .rframe 

jmp  *rtl 

i_heap_f act_done : 

movl  $l,rval 

ret 

.align  2 

i_stack_sum: 

cmpl  $0, rargl 

je  i_stack_sum_done 

pushl  rargl 

subl  $1, rargl 

call  i_stack_sum 

i_stack_sum_after : 

popl  rtl 

addl  rt 1 , rval 

ret 

i_stack_sum_done : 

movl  $l,rval 

ret 

.align  2 

i_heap_sura: 

cmpl  $0, rargl 

je  i_heap_sum_done 

pushl  rargl 

pushl  rframe 

movl  rsp, rframe 

subl  $1, rargl 

call  i_heap_sum 

i_heap_sum_af ter : 

movl  8(rframe) ,rtl  #  return  address 

addl  4 (rframe) .rval 

movl  0 (rframe ) , rframe 

jmp  *rtl 


i_stack_f ib_after_l : 

popl  rargl 

pushl  rval 

subl  $2, rargl 

call  i_stack_fib 

i_stack_f ib_af ter_2 : 

popl  rtl 

addl  rt 1 , rval 

ret 

i_stack_f ib_done ; 

movl  rargl, rval 

ret 

.align  2 

i_heap_f ib: 

cmpl  $2, rargl 

jl  i_heap_f ib_done 

pushl  rargl 

pushl  rframe 

movl  rsp, rframe 

subl  $1, rargl 

call  i_heap_fib 

i_heap_f ib_af ter_l : 

movl  4(rframe) .rargl 

movl  rval, 4 (rframe) 

subl  $2, rargl 

call  i_heap_fib 

i_heap_f ib_af ter_2 : 

addl  4 (rframe ), rval 

movl  8(rframe) ,rtl 

movl  0 (rframe) .rframe 

jmp  *rtl 

i_heap_f ib_done : 

movl  rargl, rval 

ret 


B  Driver  Loop 

Measurements  of  fact  and  sum  were  taken  using  the  fol¬ 
lowing  driver  program.  The  program  was  slightly  mod¬ 
ified  to  measure  fib  to  account  for  the  different  space 
growth. 


i_heap_sum_done : 

movl  $l,rval 
ret 


.align  2 
i_stack_f ib: 

cmpl  $2, rargl 

jl  i_stack_f ib_done 

pushl  rargl 

subl  $1, rargl 

call  i_stack_fib 


11 


/j|c  -  +  -  C  -  +  - 


#include  <stdio.h> 

#include  <stdlib.h> 

#include  <sys/time.h> 

#include  <sys/types . h> 

extern  int  stack_fact  (int,  void  *); 
extern  int  stack_sum  (int,  void  *); 
extern  int  heap_fact  (int,  void  *); 
extern  int  heap_sum  (int,  void  *); 

\ 
\ 
\ 

#deiine  CANONICALIZE_TIME(time)  ((time  <=  0)  ?  1  :  time) 

#if  0 

#define  mem_alloc  malloc 
#define  mem_free  free 
#else 

void 

mem_free  (void  *  brk_val) 

{ 

extern  int  brk  (void  *); 

(void)  brk  (brk_val) ; 
return; 

} 

void  * 

mem_alloc  (long  nbytes) 

{ 

extern  void  *  sbrk  (ssize_t); 
void  *  base  =  (sbrk  (nbytes)); 

if  (base  ==  ((void  *)  -1)) 
return  ((void  *)  NULL); 
else 

return  (base); 

> 

#endif 


#define  SUBTRACT_TIMES(time2,  timel) 

( ( ( (time2 . tv_sec)  -  (timel . tv_sec) )  * 
1000000)  + 

( (time2 . tv_usec)  -  (timel. tv  usee))) 
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long 

do_test  (int  (*  fun)  (int,  void  *),  char  *  name,  int  n, 

int  memory_size,  int  iterations,  int  iterations2,  int  he) 

{ 

long  +  individual_times; 
char  *  memory_i,  *  memory; 
int  result  =  -1,  count,  count2; 
struct  timezone  tzp; 
struct  timeval  time_0,  time_l: 
long  elapsed_time,  total_time; 

individual_times  =  ((long  *)  (mem_alloc  (iterations  ♦  (sizeof  (long))))); 
if  (individual_times  ==  ((long  *)  NULL)) 

{ 

fprintf  (stderr,  "Unable  to  allocate  */,d  bytes. \n", 

(iterations  *  (sizeof  (long)))); 

exit  (1); 

} 

memory  =  ((char  *)  (mem_alloc  (memory_size  +  (sizeof  (int))))); 
if  (memory  ==  ((char  *)  NULL)) 

fprintf  (stderr,  "Unable  to  allocate  */,d  bytes. \n", 

(memory_size  *  (sizeof  (int)))); 

exit  (1); 

} 

memory_i  =  memory; 

memory  +=  (memory_size  *  (sizeof  (int))); 
if  (he  ==  1) 

result  =  ((*  fun)  (n,  memory)); 
total_time  =  0; 

for  (count  =  0;  count  <  iterations;  count++) 
gettimeofday  (&time_0,  fttzp) ; 

for  (count2  =  0;  count2  <  iterations2;  count2++) 
result  =  ((*  fun)  (n,  memory)); 
gettimeofday  (&time_l,  &tzp) ; 

elapsed_time  =  (SUBTRACT_TIMES  (time_l,  time_0)); 
individual_times [count]  =  elapsed_time ; 
total_time  +=  elapsed_time ; 

> 

mem_free  (memory_i) ; 
printf 

("*/,s  (*/,d)  returned  */,d  was  run  */,d:'/,d  times  and  took  */,ld  usee.  total.\n", 
name,  n,  result,  iterations,  iterations2,  total_time); 

for  (count  =  0;  count  <  iterations;  count++) 

printf  ("\tIteration  */,d  took  */,ld  usec.\n",  count,  individual_times [count] ) ; 

mem_free  (individual_times) ; 
return  (total_time) ; 
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void 

main  (int  argc,  char  **  argv) 

{ 

int  n,  memory_size,  iterations,  iterations2,  he,  result; 
long  stack_f act_time ,  heap_f act_time ,  stack_sum_time ,  heap_sum_time ; 
double  fact_ratio,  sum_ratio; 
long  fact_dilf,  sum_diff; 

if  ((argc  <  2)  I  I  (argc  >  6)) 

{ 

fprintf  (stderr,  "usage:  */,s  n  [iter  iter2  he  memory-size  ]\n",  argvEO]) 
exit  (1); 

> 

n  =  (atoi  (argvEl] ) ) ; 
if  (argc  >  2) 

iterations  =  (atoi  (argvE2])); 
else 

iterations  =  1; 
if  (argc  >  3) 

iterations2  =  (atoi  (argvES])); 
else 

iterations2  =  1; 

if  (argc  >  4) 

he  =  (atoi  (argvE4])); 
else 
he  =  0; 

if  (argc  >  5) 

memory_size  =  (atoi  (argv[6])); 
else 

memory_size  =  (n  *  3); 

printf  ("n  =  */.d;  memory_size  =  '/,d;  iterations  =  '/.d;  he  =  '/,d\n" , 
n,  memory_size,  iterations,  he); 

stack_f act_time  =  do_test  (stack_fact,  "stack_fact" ,  n, 

memory_size,  iterations,  iterations2,  he); 
heap_f act_time  =  do_test  (heap_fact,  "heap_fact",  n, 

memory_size,  iterations,  iterations2,  he); 
stack_sum_time  =  do_test  (stack_sum,  "stack_sum",  n, 

memory_size,  iterations,  iterations2,  he); 
heap_sum_time  =  do_test  (heap_sum,  "heap_sum" ,  n, 

memory_size,  iterations,  iterations2,  he); 

fact_diff  =  heap_f act_time  -  stack_fact_time; 
sum_diff  =  heap_sum_time  -  stack_sum_time ; 

if  (stack_f act_time  !=  0) 

fact_ratio  =  ((double)  heap_f act_time)  /  ((double)  stack_f act_time) ; 
else 

f act_ratio  =  -1 .  ; 
if  (stack_sum_time  !=  0) 

sum_ratio  =  ((double)  heap_sum_time)  /  ((double)  stack_sum_time) ; 
else 

sum_ratio  =  -1.; 
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printf  ("\n\tTotal\t\tPer  IterationXtPer  n\t\tRatio\ii") : 
printf  ("\tTime  Delta\tTime  Delta\tTime  Delta\n\n"); 


printf  ("f  act\t*/,ld  nsec.  \t*/, Id  usec.\t*/,31d  nsec . \t%f\n"  , 
f act_diff , 

((fact_diff  +  (iterations  /  2))  /  iterations), 

(((fact_diff  *  1000)  +  ((((long)  iterations)  *  n)  /  2)) 

/  (((long)  iterations)  *  n)), 
f act_ratio) ; 

printf  ("sum\t'/,ld  usec.\t*/,ld  nsec . \t*/.31d  nsec . \t/(f \n" , 
siiin_dif  f , 

((sTiin_diff  +  (iterations  /  2))  /  iterations), 

(((sum_diff  *  1000)  +  ((((long)  iterations)  *  n)  /  2)) 

/  (((long)  iterations)  *  n)), 
siiin_ratio) ; 

exit  (0) ; 

} 

C  Raw  Data  and  Data  Reduction 

The  raw  data  was  collected  and  editted  into  the  following  Scheme  program  to  reduce  the  data, 
(def ine-structnre 

(data-value  (conc-ncune  data-value/) 

(constructor  maike-data-value  (name  n  raw))) 

raw 

ncone 

n 

(length  (length  raw)) 

(mean  (mean  raw)) 

(gmean  (gmean  raw)) 

(std-dev  (std-dev  raw)) 

(cooked  false)) 

(define  (mean  x) 

(/  (apply  +  x)  (exact->inexact  (length  x)))) 

(define  (gmean  x) 

(expt  (apply  *  x)  (exact->inexact  (/  1  (length  x))))) 

(define  (std-dev  x) 

(define  (square  x)  (*  x  x)) 

(let  ((ave  (mean  x))) 

(sqrt  (/  (apply  +  (map  (lambda  (val)  (square  (-  val  ave))) 

x)) 

(-  (length  x)  1))))) 

(define  (make-scaled-data-value  factor  n  name  data) 

(make-data-value  name  n 

(map  (lambda  (x)  (/  x  factor))  data))) 

(define  (cook!  data-value  procedure) 

(set-data-value/cookedi  data-value  (procedure  data-value)) 

’OK) 

(define  (toss-outliers  dv) 

(list-transform-negative  (data-value/raw  dv) 

(let  ((mean  (data-value/mean  dv)) 

(std-dev*2  (*  2  (data-value/std-dev  dv)))) 

(lambda  (value)  (>  (abs  (-  value  mean))  std-dev+2)  )))) 


(define  (round-to  n-places) 

(let  ((power  (expt  10  n-places))) 

(lambda  (x) 

(/  (round  (*  power  x))  power)))) 

(define  (cook-em!  vals) 

(f or-each 
(lambda  (dv) 

(cook!  dv  toss-outliers) 

(write-line  (list  (data-value/name  dv) 

(-  (data-value/length  dv) 

(length  (data-value/cooked  dv)))))) 

vals) ) 


(define  (show-mean-and-std  vals) 

(for-each  (lambda  (dv) 

(let  ((mean  (mean  (data-value/cooked  dv) ) ) 
(rounder  (round-to  2)) 

(n  (data-value/n  dv))) 

(write-line 

(list  (data-value/name  dv) 

(rounder  (/  mean  n)) 

(rounder 

(/  (std-dev  (data-value/cooked  dv)) 
(*  n  mean))))))) 

vals) ) 


(define  (pair-up  1) 

(if  (null?  1) 

’() 

(cons  (list  (car  1)  (cadr  1)) 
(pair-up  (cddr  1))))) 


(define  (show-ratios  vals) 

(let  ( (paired-values  (pair-up  vals))) 

(for-each 

(let  ((rounder  (round-to  3))) 

(lambda  (dvs) 

(write-line  (list  (data-value/name  (car  dvs)) 

(rounder 

(/  (mean  (data-value/cooked  (cadr  dvs))) 

(mean  (data-value/cooked  (car  dvs))))))))) 


paired-values ) ) ) 


(define  (do-it  architecture  procedures  vals) 

(write-line  (list  architecture  procedures  "COOK")) 
(newline) 

(cook-emi  vals) 

(newline) 

(write-line  (list  architecture  procedures 

"Mean  and  Standard  Deviation")) 

(newline) 

(show-mean-and-std  vals) 

(newline) 

(write-line  (list  architecture  procedures  "Ratios")) 
(newline) 

(show-ratios  vals)) 


ALPHA  (Win’s  capsicum,  a  3000/400  with  133MHz  CPU  128MBytes  memory 
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(define  (alpha) 

(define  stack_fact-3 

(make-s  cal ed-dat  a-value 
200  1000  ’ stack_f act-3 

’(40016  40016  40016  40016  40016  39040  41968  39040  40016  40016 
40016  40592  40016  39040  40016  40016  40016  39040  40992 
40016))) 


(define  heap_fact-3 

(make-scaled-data-value 
200  1000  ’heap_f act-3 

’(41968  41968  40992  41968  40992  40992  41968  40992  42944  40992 
41968  40992  41968  41568  41968  40992  41968  40992  41968 
40992))) 


(define  stack_siain-3 

(make-scaled-data-value 
200  1000  ’stack_sum-3 

’(23424  23424  22448  23424  23424  22448  23424  23424  23424  23424 
22448  22448  23424  23424  24400  23424  23424  23424  23424 
22448))) 


(define  heap_sum-3 

(make-scaled-data-value 
200  1000  ’heap_sum-3 

’(29280  29280  29280  29271  29264  28304  29280  30256  29280  29280 

29280  29280  29280  29280  29280  28304  29280  29280  29280 

28304))) 

(define  stack_fact-2 

(make-scaled-data-value 
2000  100  ’stack_f act-2 

’(41968  40016  40016  40016  40016  40016  40016  40992  40016  40016 

40016  40592  40016  40016  40984  39999  40016  40016  40016 

40992))) 


(define  heap_fact-2 

(make-scaled-data-value 
2000  100  ’heap_f act-2 

’(41968  41968  40992  40992  40992  41968  41968  40992  41968  41968 
41968  41968  40992  41968  41568  41968  41968  40992  41968 
40992))) 


(define  stack_sum-2 

(make-scaled-data-value 
2000  100  ’stack_sum-2 

’(23424  23424  23424  23424  23424  23424  23424  23424  23424  23424 
23424  22448  23424  23424  23424  23424  23424  23424  23424 
23424))) 


(define  heap_siun-2 

(make-scaled-data-value 
2000  100  ’heap_sum-2 

’(24400  25376  24400  25376  24400  25952  24400  25376  25376  24400 
25376  24400  25376  24400  24400  25376  24400  26352  24400 
25376))) 


(define  stack_fact-l 

(make-scaled-data-value 
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20000  10  ’ stack_f act-1 

’(44896  43920  43920  44896  42944  43920  43920  43920  43920  42944 
43920  43920  44896  43920  42944  44496  43920  43920  42944 
43920))) 


(define  heap_fact-l 

(make-scaled-data-value 
20000  10  ’heap_fact-l 

’(45872  45872  44896  45872  45872  45872  44896  44896  44896  45872 
44896  44896  46848  44896  44896  45872  45472  45872  44886 
45857))) 


(define  stack_sum-l 

(make-scaled-data-value 
20000  10  ’stack_sum-l 

’(27328  27328  28304  27328  26352  28304  27328  27328  27328  27328 
27328  27328  26352  27328  27328  27328  27328  27328  27328 
27328))) 


(define  heap_sum-l 

(make-scaled-data-value 
20000  10  ’heap_sum-l 

’(29280  28304  29280  28880  28304  29280  29280  28304  28304  29280 
28304  29280  28304  29280  28304  30256  29280  28304  29280 
28304))) 


(define  stack_fact-4 

(make-scaled-data-value 
20  10000  ’ stack_f act-4 

’(40592  40992  40016  40016  40992  40992  40016  40016  40016  40016 
40016  40016  40016  40016  40016  40016  41968  40016 
40016))) 


(define  heap_fact-4 

(make-scaled-data-value 
20  10000  ’heap_fact-4 

’(43920  40992  42944  41968  41568  41968  41968  42944  41968  40992 
41968  41968  41968  41968  40992  41968  41968  40992  41968 
42944))) 


(define  stack_sum-4 

(make-scaled-data-value 
20  10000  ’stack_sum-4 

’ (29280  28304  28304  29280  28880  28304  29280  29280  28292  28292 
30256  28304  29280  28304  28304  28304  28304  29280  29280 
29280))) 


(define  heap_sum-4 

(make-scaled-data-value 
20  10000  ’heap_sum-4 

’(32208  31232  32208  31232  34160  31232  32208  31232  32208  31232 
32208  31232  32208  31232  32208  31808  32208  31232  32208 
31232))) 


(define  stack_fact-5 
(make-data-value 
’ stack_f act-5  100000 

’(34160  24976  24400  23424  23424  23424  23424  23424  24400  23424  24400 
23424  23424  23424  23424  24400  23424  23424  23424  23424))) 


(define  heap_f act-5 
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(make-data-value 
’heap_f act-5  100000 

>(37088  31232  30266  31232  30256  30256  31232  31232  30256  31232  31232 
30256  30266  30256  31232  30256  32208  31808  31232  30256))) 


(define  stack_sum-5 
(make-data-value 
’stack_sum-5  100000 

>(368928  18544  18644  18544  18644  18544  18544  18644  18544  17668  18544 

18544  18544  18544  18544  17568  18644  18544  18544  18544  18544))) 


(define  heap_sum-5 
(make-data-value 
>heap_sum-5  100000 

>(27328  26352  26352  25376  26362  25376  26352  25376  26352  26352  25376 
26352  25376  26352  25376  25376  26352  26352  26376  26352))) 


(define  stack_fact-6 
(make-data-value 
> stack_f act-6  1000000 

>(381616  298656  296704  297280  297680  295703  299232  296704  295728 
298256  296704  296704  296704  298256  297680  295728  298256 
295728  297680  299207))) 


(define  heap_fact-6 
(make-data-value 
>heap_fact-6  1000000 

>(421632  373808  375360  372832  373808  374384 
373784  375360  373808  372832  375360 
373808  374384  373808))) 


374784  383168  381616 
373808  375360  372832 


(define  stack_sum-6 
(make-data-value 
>stack_sum-6  1000000 

>(252759  254336  250832  253760  251808  253360 
254336  251808  253760  250832  253360 
254336  251808  253760))) 


251808  252784  250832 
253760  252784  252759 


(define  heap_sum-6 
(make-data-value 
>heap_sum-6  1000000 
>(325984  330464  326960 
326936  328512 
327936  325984 


326960  328512  328912  326960  329488  327936 
327936  325984  329488  327936  325984  328512 
329488))) 


(define  stack_fact-7 
(make-dat  a-value 
> stack_f act-7  10000000 

>(4360119  3112215  3029256  3031207  3051703  3032208  3034136  3031207 
3033159  3032784  3030232  3035111  3034135  3033184  3033160 
3031207  3035111  3032208  3038040  3035111))) 

(define  heap_fact-7 
(make-data-value 
>heap_fact-7  10000000 

>(112783613  106876358  93831961  88238184  92866107  112269274  106182857 
100982851  102376106  99392322  98944738  97354651  99212133 
100388395  103351687  86775972  87163420  87232715  88112667 
94177990))) 


(define  stack_sum-7 
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(make-data-value 
’ stack_sum-7  10000000 

’(3317776  2637302  2618358  2595936  2595334  2593958  2590480  2595910 
2594934  2590480  2592983  2593382  2597888  2593958  2592432 
2595910  2593382  2593984  2594934  2594358))) 

(define  heap_sum-7 
(make-data-value 
’heap_sum-7  10000000 

’(113252058  91017981  91719302  97720252  102820729  100691347  98321037 
103970100  98914474  103821193  96754398  89168300  103249753 
101138909  86165365  89804191  97936901  123155339  115575163 
110995482))) 


(define  stack_f act-66 
(make-data-value 
’ stack_f act-66  6666666 

’(2636352  2020472  2020496  2019496  2020496  2019496  2021072  2021447 
2022448  2028280  2020496  2020472  2018544  2025352  2021472 
2020472  2018544  2021448  2021472  2021448))) 

(define  heap_fact-66 
(make-data-value 
’heap_f act-66  6666666 

’(2862360  2535824  2533448  2540704  2534424  2533848  2536400  2533847 
2536376  2532496  2531896  2535424  2537752  2535400  2535824 
2537352  2538728  2533472  2537752  2535400))) 


(define  stack_sum-66 
(make-data-value 
’ stack_sum-66  6666666 

’(1736480  1726144  1727672  1727696  1728647  1724192  1730600  1725744 
1726144  1730600  1727696  1726696  1728096  1726696  1727696 
1727696  1727096  1726720  1728648  1729072))) 


(define  heap_sum-66 
(make-data-value 
’heap_sum-66  6666666 

’(2232264  2230336  2229336  2230336  2230888  2236167  2228384  2235192 
2231888  2233240  2228384  2229336  2231888  2228360  2230312 
2230336  2231288  2228960  2236168  2227408))) 


(define  all-values 
(list  stack_fact-l 
heap_f act-1 
stack_sum-l 
heap_sum-l 
stack_f act-2 
heap_f act-2 
stack_sum-2 
heap_sum-2 
stack_f act-3 
heap_f act-3 
stack_sum-3 
heap_sum-3 
stack_f act-4 
heap_f act-4 
stack_sum-4 
heap_sum-4 
stack_f act-5 
heap_f act-5 


20 


stack_sum-5 
heap_suin-5 
stack_f act-6 
heap_f act-6 
stack_suin-6 
heap_sum-6 
stack_f act-66 
heap_f act-66 
stack_sum-66 
heap_sum-66 
stack_f act-7 
heap_fact-7 
stack_suin-7 
heap_simi-7) ) 

(do-it  ’alpha  ’fact-and-sum  all-values) 

(define  stack_fib-5 

(make-scaled-data-value 
20  10000  ’stack_fib-5 

’(25376  18544  20496  18544  19520  18544  18544  19520  19520  18544 

19520  18544  19520  18544  18544  19520  18544  18544  19520 

18544))) 

(define  heap_fib-5 

(make-scaled-data-value 
20  10000  ’heap_fib-5 

’ (20496  20496  20496  20496  21472  21472  20496  20496  20496  20496 

20496  20496  20496  20496  20496  21072  20496  20496  20496 

20496))) 

(define  stack_fib-10 

(make-scaled-data-value 
20  5000  ’stack_fib-10 

’(109312  108336  108336  108336  109312  108336  108912  109307  109291 
108336  108336  108336  108336  110288  108336  108912  108336 
108336  109312  108336))) 

(define  heap_fib-10 

(make-scaled-data-value 
20  5000  ’heap_fib-10 

’(120048  120048  119072  118672  119072  119072  119072  119072  118096 

119072  119072  119648  118096  118096  120048  118096  119072 

118096  120048  118096))) 

(define  stack_fib-15 

(make-scaled-data-value 
20  1000  ’ stack_f ib-15 

’(242624  242048  241072  242048  241648  242999  242048  241072  241648 

242048  241072  242048  241648  241072  241072  241072  242624 

241072  242048  240096))) 

(define  heap_fib-15 

(make-scaled-data-value 
20  1000  ’heap_fib-15 

’(338246  337696  337696  336320  339648  336720  336320  338672  337696 

337296  336720  337696  337271  336720  337696  337296  337696 

336720  337296  336720))) 

(define  stack_fib-20 

(make-scaled-data-value 
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20  100  ’stack_fib-20 
’(269376  268400  268976 
268400  268000 
269952  268374 


(define  heap_fib-20 

(make-scaled-data-value 
20  100  ’heap_fib-20 
’(430016  424560  425136 
424160  423584 
424135  423584 

(define  stack_fib-25 

(make-scaled-data-value 
20  10  ’stack_f ib-25 
’(299232  296704  297680 
302560  298256 
298256  296679 

(define  heap_fib-25 

(make-scaled-data-value 
20  10  ’heap_fib-25 
’(619360  606672  605120 
606096  606672 
606096  606647 


(define  stack_fib-30 
(make-scaled-data-value 
20  1  ’ stack_f ib-30 
’(331440  329888  328912 
331440  329888 
329888  329488 

(define  heap_fib-30 

(make-scaled-data-value 
20  1  ’heap_fib-30 
’(833104  672064  671488 
672064  673040 
671463  671088 


267399  268400  268400  268976  268400  267424 
268400  266448  268976  267424  268400  267424 
267424))) 


423584  422608  424160  425536  424160  425510 
423584  425136  424560  424160  424560  424560 
426112))) 


295728  299206  297680  295728  298256  297680 
295728  297680  296704  298256  297680  296704 
297680))) 


606672  604144  606646  606672  606096  606672 
605696  606070  605696  606096  607648  606672 
604144))) 


329488  328912  328912  330449  329878  327936 
327936  330464  329888  328912  330464  334768 
328886))) 


672064  672064  670486  673040  673040  669536 
672438  671088  673040  670512  672064  671088 
673040))) 


(define  all-fibs 
(list  stack_fib-5 
heap_f ib-5 
stack_f ib-10 
heap_f ib-10 
stack_f ib-16 
heap_f ib-15 
stack_f ib-20 
heap_f ib-20 
stack_f ib-25 
heap_f ib-25 
stack_f ib-30 
heap_f ib-30) ) 

(do-it  ’alpha  ’fib  all-fibs)) 


HPPA  (montreaux)  a  720  (50MHz  CPU)  with  48MBytes  memory 


(define  (hppa) 
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(define  stack_f act-10 
(make-scaled-data-valne 
20  10000  ’ stack_f act-10 
’(49569  49409  49535  49399 
50166  49425  49457 
49410))) 


(define  heap_f act-10 

(make-scaled-data-valne 
20  10000  ’heap_fact-10 
’(59526  59544  69441  59494 
59503  59545  59634 
59435))) 


(define  stack_sum-10 

(make-scaled-data-valne 
20  10000  ’ stack_snm-10 
’(31589  31641  31528  31638 
31899  31552  31593 
31606))) 


(define  heap_snm-10 

(make-scaled-data-valne 
20  10000  ’heap_snm-10 
’(41746  41680  41566  41571 
41670  41668  41634 
41564))) 

(define  stack_f act-100 
(make-scaled-data-valne 
20  1000  ’stack_f act-100 
’(42952  42913  43067  42921 
46154  43030  43529 
43031))) 

(define  heap_f act-100 
(make-scaled-data-valne 
20  1000  ’heap_fact-100 
’(53062  52938  53056  54627 
53003  56121  63614 
53007))) 

(define  stack_sum-100 
(make-scaled-data-valne 
20  1000  ’ stack_snm-100 
’(24886  24843  24995  24851 
24953  24881  24847 
24950))) 


(define  heap_snm-100 

(make-scaled-data-valne 
20  1000  ’heap_snm-100 
’ (37909  34956  36261  34900 
35044  34996  35003 
34889))) 

(define  stack_f act-1000 
(make-scaled-data-valne 
20  100  ’ stack_f act-1000 
’(42964  45569  42329  42848 
42410  42316  42247 


49481  49661  49581  52589  49481  50152 
49410  49519  49506  49474  49401  49510 


59553  59599  62616  60768  59714  59826 
59504  59442  59539  59499  59441  59548 


31593  34555  31596  31532  32048  31821 
31530  31529  31678  31538  31642  31529 


41621  41572  41678  41600  41627  41565 
44587  42082  41706  42278  41586  41632 


43057  42957  42975  43075  42927  43130 
43189  43397  42972  42929  42952  43027 


53314  52928  53099  52993  53053  53066 
53202  53330  53031  52943  53048  53164 


24890  24846  24943  24846  24882  24852 
24892  24908  24883  24948  24884  24946 


35192  35482  34932  34944  34926  34897 
34886  34925  34994  34932  34896  34985 


42904  42731  42248  42306  42257  42404 
42252  42401  42246  42320  42246  42402 
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42253))) 


(define  heap_f act-1000 
(make-scaled-data-value 
20  100  ’heap_f act-1000 

’(52796  52552  52407  52355  55512  52813  52562  52692  52394  52291 
52417  52407  52406  52296  52406  52296  52387  52303  52409 
52290))) 


(define  stack_sum-1000 
(make-scaled-data-value 
20  100  ’ stack_sum-1000 

’(24839  24173  24331  24173  24340  24240  24175  27402  24273  24182 
24689  24351  24303  24806  24194  24220  24238  24209  24175 
24186))) 


(define  heap_sum-1000 
(make-scaled-data-value 
20  100  ’heap_sum-1000 

’(34942  34421  34252  34293  34261  34387  34386  34213  34216  34312 
34222  34378  34215  34262  34271  34216  34364  34330  34317 
37271))) 


(define  stack_f act-10000 
(make-scaled-data-value 
20  10  ’ stack_f act-10000 

’(45617  42460  42482  42331  42311  42439  42380  42265  42373  42262 
42372  42274  42256  42368  42465  42362  42346  45778  42266 
44122))) 


(define  heap_f act-10000 
(make-scaled-data-value 
20  10  ’heap_f act-10000 

’(57767  52413  52354  52471  52619  52417  62352  62469  62398  52409 
52348  62466  52397  62421  52541  52458  55906  52433  53326 
53016))) 


(define  stack_sum-10000 
(make-scaled-data-value 
20  10  ’ stack_sum-10000 

’(27428  24241  24203  24148  24215  24284  24150  24411  24146  24280 
24150  24199  24258  24230  24328  24149  24208  24149  24259 
24159))) 


(define  heap_sum-10000 
(make-scaled-data-value 
20  10  ’heap_sum-10000 

’(38907  34418  34225  34228  34348  34425  34287  34330  34361  37823 

34361  34856  34581  34237  34722  34284  34281  34231  34341 

34290))) 

(define  stack_f act-100000 
(make-scaled-data-value 
20  1  ’ stack_f act-100000 

’(84380  60212  60037  60254  60047  60375  60278  62585  61941  61101 

60595  60129  60028  60230  60334  60123  60214  60069  60147 

60222))) 

(define  heap_f act-100000 
(make-scaled-data-value 
20  1  ’heap_f act-100000 
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’(114320  81606  85013  82143  82333  81331  81393  81477  81204  81349 
81245  81410  81299  81466  81456  86300  82160  81432  81360 
81395))) 


(define  stack_sviin-100000 
(make-scaled-data-value 
20  1  ’  stack_suin-100000 

’(64734  41225  41043  41023  41195  41023  41203  41052  41010  41121 

41244  41244  41219  44590  41058  42125  41438  41570  41126 

41043))) 

(define  heap_sum- 100000 
(make-scaled-data-value 
20  1  ’heap_sum-100000 

’(96698  63261  63134  63225  63260  63124  63240  63245  63296  63292 

66739  64351  63581  63824  63264  63339  63299  63291  63294 

63121))) 

(define  stack_f act-1000000 
(make-scaled-data-value 
20  1  ’ stack_f act-1000000 

’(884472  682896  678273  684765  682821  681800  679688  683254  681371 
679456  684403  683033  679008  682984  682438  678696  683195 
683675  678067  682971))) 

(define  heap_f act-1000000 
(make-scaled-data-value 
20  1  ’heap.fact-lOOOOOO 

’(1175697  880327  883871  881463  880607  880493  879693  876615  880127 
881461  880885  880310  880393  880855  881035  879436  877151 
880613  880532  880437))) 

(define  stack_sum-1000000 
(make-scaled-data-value 
20  1  ’ stack_sum-1000000 

’(678238  474478  478021  473358  478229  473407  478162  473188  477570 

473658  478118  474061  476697  475307  473017  478130  473232 

478303  473194  478488))) 

(define  heap_sum-1000000 
(make-scaled-data-value 
20  1  ’h,eap_sum-1000000 

’(994281  699718  694885  700204  699559  696462  699757  700716  698372 

697086  699815  699204  695100  699852  700438  695025  700193 

699791  698312  696146))) 

(define  all-values 
(list  stack_f act-10 
heap_f act-10 
stack_sum-10 
heap_siun-10 
stack_f act-100 
heap_f act-100 
stack_sum-100 
heap_sum-100 
stack_f act-1000 
heap_f act- 1000 
stack_sum-1000 
heap_sum-10000 
stack_f act- 10000 
heap_f act- 10000 


25 


St  ack_suin- 10000 
heap_sum- 10000 
stack_f act- 100000 
heap_f act- 100000 
St ack_sum- 100000 
heap_sum- 100000 
stack_f act- 1000000 
heap_f act- 1000000 
St ack_sum- 1000000 
heap_sum-1000000) ) 

(do-it  ’hppa  ’f act-and-sum  all-values) 

(define  all-fibs 
(list  stack_fib-5 
heap_f ib-5 
stack_f ib-10 
heap_f ib-10 
stack_f ib-15 
heap_f ib-15 
stack_f ib-20 
heap_f ib-20 
stack_f ib-25 
heap_f ib-2S 
stack_f ib-30 
heap_f ib-30) ) 

(do-it  ’hppa  ’fib  all-fibs)) 


68040  (Dumbo)  HP9000/380  25MHz  68040  with  32MBytes  of  memory 

*>>>>>>*  f  ********>********  i  f  i  >  I  *  *  *  *  t  >  y  >  I  >  t  *  >  *  I  *  *  f  t  >  I  f  I  y  y  y  y  y  y  y  y  'y 


(define  (mc68040) 

(define  stack_f act-10 
(make-scaled-data-value 
20  10000  ’ stack_f act-10 

’(156284  156232  156663  156268  158444  156952  156208  155896  156635 

156176  158124  156372  156376  156224  156015  156680  157752 

156484  156708  156112))) 

(define  heap_fact-10 

(make-scaled-data-value 
20  10000  ’heap_f act-10 

’(164368  164476  164244  167841  164652  164256  164349  164408  164248 

166296  164749  164272  164228  164564  164308  166417  164628 

164276  163964  164769))) 

(define  stack_sum-10 
(make-scaled-data-value 
20  10000  ’ stack_sum-10 

’(75195  75048  76748  75320  75216  75067  75416  75044  75204  74931 

74888  75228  75456  75087  74956  76764  75356  75216  74827 

75688))) 

(define  heap_sum-10 

(make-scaled-data-value 
20  10000  ’heap_sum-10 

’(87241  87320  87072  87417  87116  87428  87377  90208  87557  87240 

87740  87269  87244  87028  87177  87304  87817  87308  87084 

89313))) 
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(define  stack_f act-100 
( mak e - s c al ed-dat a-value 
20  1000  ’ stack_f act-100 

'(143987  144347  145532  149919  148220  143891  143611  143835  144219 
146120  143807  144295  143871  143676  144279  143855  145771 
143811  144400  143795))) 


(define  heap_f act-100 
(make-scaled-data-value 
20  1000  ’heap_f act-100 

’(152204  152275  152088  155288  152139  152236  151971  151968  152528 
153419  152356  152504  151927  151740  152363  152012  154000 
151819  152568  152080))) 


(define  stack_suin-100 
(make-scaled-data-value 
20  1000  ’ stack_sum-100 

’(62187  62447  62111  62711  62431  62175  62223  64444  62187  62431 
62115  62923  62259  62147  62564  62231  62147  62415  62147 
62815))) 


(define  heap_sum-100 

(make-scaled-data-value 
20  1000  ’heap_sum-100 

’(74752  74392  76023  74824  74592  74624  74715  74464  74628  74400 
74259  74656  74812  74664  74251  74432  77944  74584  74271 
75124))) 


(define  stack_fact-1000 
(make-scaled-data-value 
20  100  ’stack_f act-1000 

’(160220  157396  158063  157516  157128  158224  157164  159412  167980 
157472  157648  157143  158220  158740  157092  167708  156864 
157504  157544  166787))) 


(define  heap_f act -1000 
(make-scaled-data-value 
20  100  ’heap_f act-1000 

’(182045  181089  180425  180341  181517  183709  180993  180601 
181037  180453  183094  180793  180497  180345  181121 
181145  180597  180017))) 


180061 

182457 


(define  stack_sum-1000 
(make-scaled-data-value 
20  100  ’ stack_sum-1000 

’(74040  72743  73276  72396  72211  74624  72692  72127  73192  72952 
72143  72600  72311  72560  72348  72695  73248  72372  73847 
72796))) 


(define  heap_sum-1000 
(make-scaled-data-value 
20  100  ’heap_sum-1000 

’(108257  107638  106653  107002  106537  106749  107546  107773  110382 
107017  107406  106950  106801  106593  107322  107541  106789 
108958  106933  107222))) 


(define  stack_f act-10000 
(make-scaled-data-value 
20  10  ’ stack_f act-10000 

’(174272  167557  166312  165992  165541  166104  165744  167400  166581 
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165672  165372  166245  165692  167492  166509  165648  165268 
166345  165696  169240))) 

(define  heap_f act-10000 
(make-scaled-data-value 
20  10  'heap_f act-10000 

’(202750  189641  189786  190237  191622  190329  189770  189685  190242 
191209  190062  190161  189810  190057  189790  191753  190286 
189573  189818  190177))) 

(define  stack_sum-10000 
(make-scaled-data-value 
20  10  ’ stack_sum-10000 

’(90264  80356  80252  80800  80116  80044  80288  80028  80304  80156 
80396  80300  80068  83704  80280  80316  80436  79988  80332 
80044))) 


(define  heap_sum-10000 
(make-scaled-data-value 
20  10  ’heap_sum- 10000 

’(124462  112414  111989  113794  112037  112274  112446  112033  111922 

112158  112221  112158  113653  112442  121238  112322  112101 

111950  112110  112433))) 

(define  stack_f act-100000 
(make-scaled-data-value 
20  1  ’ stack_f act-100000 

’(245737  167148  167108  167801  169048  167509  167348  167168  167329 

167520  170569  167328  167312  167321  167156  167665  169280 

167328  167437  167172))) 

(define  heap_f act-100000 
(make-scaled-data-value 
20  1  ’heap_f act-100000 

’(309095  193706  192418  191617  191790  192053  193618  192406  191613 

191802  191757  193610  192034  192093  191826  192306  191605 

195222  192266  191613))) 

(define  stack_sum-100000 
(make-scaled-data-value 
20  1  ’ stack_sum-100000 

’(158860  81980  81684  81412  83540  81660  81857  81828  81484  81688 
81408  81672  81396  81888  81684  81516  83552  81797  81376 
82092))) 


(define  heap_sum-100000 
(make-scaled-data-value 
20  1  ’heap_sum-100000 

’(230884  113762  113781  113762  115298  113653  113766  114546  113750 
113373  113822  113978  113629  115358  114042  113597  113982 
113790  113502  113577))) 


(define  stack_f act-1000000 
(make-scaled-data-value 
20  1  ’ stack_f act-1000000 

’(2458527  1677699  1677848  1678524  1679520  1678032  1678116  1678164 
1679016  1689992  1924317  1927164  1679316  1676996  1679616 
1678420  1676320  1680208  1677939  1677076))) 


(define  heap_f act-1000000 
(make-scaled-data-value 
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20  1  ’heap_lact-1000000 

’(3106003  1922328  1925732  1924765  1926494  1932211  1924156  1925548 

1924244  1925491  1924508  1924120  1925428  1923820  1925391 

1922480  1924712  1926304  1924523  1924240))) 

(define  stack_sum-1000000 
(make-scaled-data-value 
20  1  ’  stack_suin-1000000 

’(1595600  822307  822923  817247  818823  820847  818963  818656  816868 
819223  818723  820583  818639  819243  817911  818683  819103 
820771  818631  817695))) 

(define  heap_snin-1000000 
(make-scaled-data-value 
20  1  ’heap_sum-1000000 

’(2315616  1141371  1140223  1142171  1140271  1143399  1140483  1140207 

1140143  1140223  1141635  1140123  1149818  1140287  1141607 

1140035  1140587  1140243  1140187  1143387))) 

(define  all-values 
(list  stack_f act-10 
heap_fact-10 
stack_sum-10 
heap_sum-10 
stack_f act-100 
heap_f act-100 
stack_sum-100 
heap_sum-100 
stack_fact-1000 
heap_f act-1000 
stack_sum-1000 
heap_sum-1000 
stack_f act- 10000 
heap_f act- 10000 
stack_siun- 10000 
heap_sum-10000 
stack_f act- 100000 
heap_f act-100000 
stack_sum-100000 
heap_sum- 100000 
stack_f act- 1000000 
heap_f act- 1000000 
stack_sura-1000000 
heap_sum-1000000) ) 

(do-it  ’68k  ’f act-and-sum  all-values) 

(define  stack_fib-5 

(make-scaled-data-value 
20  100000  ’stack_fib-5 

’(1024737  1027557  1024577  1025036  1024721  1024853  1025837  1024916 

1025393  1024529  1024501  1026696  1024709  1024485  1024517 

1025068  1026005  1024485  1024493  1025128))) 

(define  heap_fib-5 

(make-scaled-data-value 
20  100000  ’heap_fib-5 

’(1063088  1055527  1053365  1056787  1057971  1053260  1054507  1053175 

1052848  1056211  1064711  1053131  1053068  1052947  1054119 

1054352  1052979  1053211  1052828  1054387))) 
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(define  stack_fib-10 

(make-scaled-data-value 
20  10000  ’ stack_f ib-10 

’(1123336  1123272  1122891  1123076  1124212  1123100  1122884  1124288 

1125495  1123676  1126212  1122804  1128359  1125700  1123308 

1124292  1123407  1124580  1122632  1123052))) 

(define  heap_fib-10 

(make-scaled-data-value 
20  10000  ’heap_fib-10 

’(1159258  1159418  1160354  1161882  1159342  1158914  1159938  1159490 

1158946  1164642  1162961  1165394  1404730  1410237  1162310 

1159214  1163898  1160314  1166174  1159070))) 

(define  stack_fib-15 

(make-scaled-data-value 
20  1000  ’stack_fib-15 

’(1244638  1243549  1245274  1245386  1243906  1243634  1247297  1245846 

1245278  1244010  1245097  1244978  1244026  1244118  1244805 

1244170  1245362  1243910  1244694  1244113))) 

(define  heap_fib-15 

(make-scaled-data-value 
20  1000  ’heap_fib-15 

’(1508953  1508708  1505045  1503305  1503849  1502637  1503712  1503517 

1503465  1503605  1502053  1504381  1501921  1503060  1514057 

1505832  1501453  1503893  1502845  1503297))) 

(define  stack_fib-20 
(make-scaled-data-value 
20  100  ’ stack_f ib-20 

’(1380735  1390298  1378423  1380863  1378688  1380774  1380583  1378856 

1379251  1382518  1378320  1380923  1380486  1378816  1380651 

1379243  1380819  1381298  1378244  1383178))) 

(define  heap_f ib-20 

(make-scaled-data-value 
20  100  ’heap_fib-20 

’(1699867  1691544  1694135  1686116  1687459  1692980  1685187  1687768 

1692635  1687656  1685596  1692975  1687684  1685724  1690051 

1687232  1686343  1689156  1691019  1685908))) 

(define  stack_fib-25 
(make-scaled-data-value 
20  10  ’ stack_f ib-25 

’(1559962  1532467  1528684  1532547  1530984  1529327  1532843  1529436 

1530931  1529136  1532583  1529376  1531687  1530396  1531691 

1528908  1532335  1529144  1534743  1535791))) 

(define  heap_f ib-25 

(make-scaled-data-value 
20  10  ’heap_f ib-25 

’(2030934  1873911  1876946  1876814  1876702  1878202  1875646  1877951 

1875798  1874022  1877490  1875558  1875731  1877686  1879546 

1880130  1875902  1875198  1877294  2124722))) 

(define  stack_fib-30 
(make-scaled-data-value 
20  1  ’ stack_f ib-30 

’(1945566  1696688  1695427  1698487  1697119  1797206  1762760  1697631 

1696743  1697959  1700435  1697207  1701555  1696688  1697671 
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1697943  1695265  1699391  1698571  1696207))) 


(define  lieap_fib-30 

(make-scaled-data-value 
20  1  ’heap_fib-30 

’(4185419  2134617  2112158  2096864  2095913  2090442  2088162  2092970 
2087008  2090906  2087104  2091826  2163824  2089356  2087926 
2086840  2087840  2087394  2089720  2088790))) 

(define  all-fibs 
(list  stack_fib-5 
heap_f ib-5 
stack_f ib-10 
heap_f ib-10 
stack_f ib-15 
heap_f ib-16 
stack_f ib-20 
heap_f ib-20 
stack_f ib-25 
heap_f ib-25 
stack_f ib-30 
heap_f ib-30) ) 

(do-it  ’68k  ’fib  all-fibs)) 


i486  (Patek)  i486/DX2  66  MHz  with  32MBytes  of  memory 
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(define  (i486) 

(define  stack_fact-10 
(make-scaled-data-value 
20  10000  ’stack.f act-10 

’(56510  55447  55436  55707  55794  55420  66666  55687  65687  65603 
55665  55740  55528  55514  55690  55737  56438  55614  56473 
55918))) 


(define  heap_fact-10 

(make-scaled-data-value 
20  10000  ’heap_fact-10 

’(65548  67039  65906  65216  67037  65924  65251  67113  65965  66118 
67030  65958  65060  66832  65834  65712  67220  66572  65713 
67212))) 


(define  stack_sum-10 

(make-scaled-data-value 
20  10000  ’stack_sum-10 

’(36672  37795  37870  37849  37794  37832  37868  37800  37842  37796 
37798  37908  37784  37795  37865  37891  37905  37781  37794 
37857))) 


(define  heap_sum-10 

(mcike-scaled-data-value 
20  10000  ’heap_sum-10 

’(48791  48495  48148  49189  50376  49467  48222  49057  50376  49589 
48146  48941  50376  49717  48146  48816  50302  49320  49217 
49562))) 


(define  stack_f act-100 
(make-scaled-data-value 
20  1000  ’ stack_f act-100 
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’(52391  61719  51817  51694  51749  51710  52189  51693  51753  51958 
51807  51694  51749  51693  52514  51711  51748  51692  51789 
51767))) 


(define  heap_f act-100 
(make-scaled-data-value 
20  1000  ’heap_f act-100 

’(62626  62273  62156  62233  62260  62157  62222  62351  62274  62216 
64087  62292  62215  62158  62258  62231  62240  62260  62156 
62218))) 


(define  stack_sum-100 
(make-scaled-data-value 
20  1000  ’ stack_sum-100 

’(29693  29446  29302  29318  30017  29403  29318  29507  29413  29319 
29315  29316  29372  29317  29315  29411  29317  29316  29370 
29303))) 


(define  heap_sum-100 
(make-scaled-data-value 
20  1000  ’h.eap_sum-100 

’(41840  41542  41478  41409  41487  41406  41490  41375  41434  41376 
41374  41526  41404  41441  41549  41425  41475  41405  41467 
41375))) 


(define  stack_f act-1000 
(make-scaled-data-value 
20  100  ’ stack_f act-1000 

’(58325  57221  56859  56999  56923  57156  56855  57414  57123  56848 
57055  56905  57109  56862  57029  57147  56987  57020  56918 
57085))) 


(define  heap_f act-1000 
(make-scaled-data-value 
20  100  ’heap_f act-1000 

’(78285  76830  76846  77203  76883  76850  76736  76897  76782  76952 
76860  76773  76961  76860  76827  76871  77156  76866  76842 
76731))) 


(define  stack_sum-1000 
(make-scaled-data-value 
20  100  ’ stack_sum-1000 

’(31258  29720  29690  29824  29671  29683  29795  29876  29879  29726 
29840  29700  29693  29935  29751  29699  29705  29829  29707 
29682))) 


(define  heap_sum-1000 
(make-scaled-data-value 
20  100  ’heap_sum-1000 

’(54940  53216  53332  53697  53229  53334  53276  53396  53226  53391 
53228  53399  53369  53343  53219  53462  53233  53338  53461 
53224))) 


(define  stack_f act-10000 
(make-scaled-data-value 
20  10  ’ stack_f act-10000 

’(81504  72305  72431  72199  72207  72338  72215  72010  72303  72251 
72910  72014  72182  72368  72028  72215  72298  72405  72034 
72324))) 


(define  heap_f act-10000 
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(make-scaled-data-value 
20  10  ’heap_f act-10000 

’(105531  92729  92545  93131  92553  92691  92607  92663  92734  92520 
92599  92555  92713  92959  92722  92557  92696  92609  92663 
96741))) 


(define  stack_sum-10000 
(make-scaled-data-valne 
20  10  ’stack_suin-10000 

’(62329  44575  44428  42185  46505  40249  39725  39720  39907  40182 

40040  39727  39723  39912  39720  40038  39724  39725  39909 

39725))) 

(define  heap_siiin-10000 
(make-scaled-data-valne 
20  10  ’heap.snm-lOOOO 

’(82083  68851  68793  68825  68855  69051  68640  68880  69550  68646 

68767  69030  68626  69269  69024  68890  68876  69043  68776 

68671))) 

(define  stack_f act-100000 
(make-scaled-data-value 
20  1  ’ stack_f act-100000 

’(166633  119617  119842  119656  119575  119440  119552  120214  119463 
119598  119437  119781  119771  119461  119584  119900  119547 
119756  119501  119829))) 

(define  heap_f act-100000 
(make-scaled-data-value 
20  1  ’heap_f act-100000 

’ (224122  156409  156944  156121  156400  156412  156453  158840  156434 
157912  156481  156415  156290  157183  156238  156957  156289 
156313  156615  156247))) 

(define  stack_sum-100000 
(make-scaled-data-value 
20  1  ’  stack_siun-100000 

’(130537  82599  83403  82890  82800  82955  82785  82626  83137  82798 
82952  82825  82937  82627  83290  82917  82807  82920  82826 
82629))) 


(define  heap_sum-100000 
(make-scaled-data-value 
20  1  ’heap_sum- 100000 

’(194803  126288  126136  126367  126018  126214  126036  126280  126094 
126155  126136  126404  126236  126034  126013  126257  126273 
125991  126144  126428))) 

(define  stack_f act-1000000 
(make-scaled-data-value 
20  1  ’ stack_f act-1000000 

’(1728015  1274891  1275088  1274826  1275315  1278018  1275163  1274913 
1275243  1275026  1275035  1275315  1275244  1301347  1275042 
1275296  1274860  1275067  1277540  1275370))) 


(define  heap_f act-1000000 
(make-scaled-data-value 
20  1  ’heap_fact-1000000 
’(2305451  1629725  1629062 
1629356  1629262 
1629529  1634125 


1629459  1629548  1629699  1632918  1630708 
1629042  1629732  1633909  1698553  1629944 
1629238  1629886  1629139))) 
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(define  stack_sum-1000000 
(make-scaled-data-value 
20  1  ’ stack_sum-1000000 

’(1310212  856439  857043  856919  856684  856936  856911  857154  858389 
857707  856806  857074  856601  856935  857218  856408  856906 
856990  856683  856875))) 

(define  heap_sum-1000000 
(make-scaled-data-value 
20  1  ’heap_sum-1000000 

’(1974375  1286119  1285269  1286179  1288749  1285647  1286244  1285736 
1285937  1285473  1286104  1285905  1285663  1286286  1289451 
1286958  1285348  1286303  1285918  1285525))) 

(define  all-values 
(list  stack_f act-10 
heap_f act-10 
stack_sum-10 
heap_sum-10 
stack_f act-100 
heap_f act-100 
stack_sum-100 
heap_sum-100 
stack_f act- 1000 
heap_f act- 1000 
stack_sum-1000 
heap_sum-1000 
stack_f act- 10000 
heap_f act- 10000 
stack. sum- 10000 
heap.sum- 10000 
stack.f act- 100000 
heap.f act- 100000 
stack. sum- 100000 
heap.sum- 100000 
stack.f act- 1000000 
heap.f act- 1000000 
stack. sum- 1000000 
heap.sum-lOOOOOO) ) 

(do-it  ’i486  ’f act-and-sum  all-values) 

(define  stack_fib-5 

(make-scaled-data-value 
20  1  ’ stack.f ib-5 

’(308  33  25  23  24  24  23  24  23  24  24  23  23  24  23  24  24  23  25  24))) 

(define  heap. fib-5 

(make-scaled-data-value 
20  1  ’heap_fib-5 

’(334  26  25  24  25  24  24  25  24  25  24  24  24  24  24  24  57  25  24  25))) 

(define  stack_fib-10 
(make-scaled-data-value 
20  1  ’ stack.f ib-10 

’(352  74  65  65  65  65  65  65  66  65  66  65  66  65  67  65  66  65  66  65))) 

(define  heap_fib-10 

(make-scaled-data-value 
20  1  ’heap_fib-10 
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’(458  76  75  74  74  75  75  75  75  74  74  74  75  75  75  74  74  74  74  75))) 

(define  stack_fib-15 

(maLke-scaled-data-value 
20  1  ’stack_fib-15 

’(821  537  537  526  526  526  560  527  526  526  526  526  527  527  527  527 
527  526  527  526))) 

(define  heap_fib-15 

(make-scaled-data-valne 
20  1  ’heap_fib-15 

’(2591  899  875  875  876  875  875  875  875  916  877  875  875  875  875 
875  874  875  876  875))) 

(define  stack_fib-20 

(make-scaled-data-value 
20  1  ’stack_fib-20 

’(5923  5677  5645  5636  5659  5636  5652  5636  5652  5636  5652  5653 
5636  5652  5636  5652  5636  5737  5655  5636))) 

(define  heap_fib-20 

(mcike-scaled-data-value 
20  1  ’heap_fib-20 

’(25840  13441  13412  13524  13399  13630  13372  13376  13415  13374 

13437  13353  13551  13440  14789  13430  13418  13372  13515 

13604))) 

(define  stack_fib-25 

(make-scaled-data-value 
20  1  ’stack_f ib-25 

’(62877  62561  62412  62752  62503  62391  62446  62423  62468  62449 

62389  62538  62470  62392  62481  62392  62462  62484  62391 

62582))) 

(define  heap_f ib-25 

(mcLke-scaled-data-value 
20  1  ’heap_f ib-25 

’(285983  186278  186455  186051  186587  186157  186276  186460  186214 

186273  186531  186224  186453  186216  186227  186679  186243 

187504  186439  186080))) 

(define  stack_fib-30 

(make-scaled-data-value 
20  1  ’ stack_f ib-30 

’(693010  702383  702233  702075  702256  701592  692409  694180  693032 

692424  692229  692413  692321  692269  692361  692339  692181 

692384  692363  692357))) 

(define  heap_f ib-30 

(make-scaled-data-value 
20  1  ’heap_f ib-30 

’(3265745  2065392  2064986  2069689  2065605  2064913  2066052  2065216 
2064950  2067606  2066191  2065429  2065168  2065149  2079006 
2065178  2065183  2068184  2065347  2065230))) 

(define  all-fibs 
(list  stack_fib-5 
heap_f ib-5 
stack_f ib-10 
heap_f ib-10 
stack_f ib-15 
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heap_l ib-15 
stack_f ib-20 
heap_f ib-20 
stack_f ib-25 
heap_f ib-25 
stack_f ib-30 
heap_f ib-30) ) 

(do-it  ’i486  ’fib  all-fibs)) 


